home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / l_5950.txt < prev    next >
Text File  |  1994-03-01  |  2KB  |  45 lines
  1. 5 GOTO10010
  2. 10 DATAx[cm],0.01x[m],X[m]=0.01*x[cm],10,20
  3. 20 DATAx[cm],0.393701x[in],X[in]=.393701*x[cm],10,30
  4. 30 DATAx[cm],0.0328084x[ft],X[ft]=.0328084*x[cm],20,40
  5. 40 DATAx[cm],0.0109361x[yd],X[yd]=.0109361*x[cm],30,50
  6. 50 DATAx[cm],0.00000621371x[mile],X[mile]=6.21371E-6*x[cm],40,60
  7. 60 DATAx[m],100x[cm],X[cm]=100*x[m],50,70
  8. 70 DATAx[m],39.3701x[in],X[in]=39.3701*x[m],60,80
  9. 80 DATAx[m],3.28084x[ft],X[ft]=3.28084*x[m],70,90
  10. 90 DATAx[m],1.09361x[yd],X[yd]=1.09361*x[m],80,100
  11. 100 DATAx[m],0.000621371x[mile],X[mile]=.000621371*x[m],90,110
  12. 110 DATAx[in],2.54x[cm],X[cm]=2.54*x[in],100,120
  13. 120 DATAx[in],0.0254x[m],X[m]=.0254*x[in],110,130
  14. 130 DATAx[in],0.0833333x[ft],X[ft]=.0833333*x[in],120,140
  15. 140 DATAx[in],0.0277778x[yd],X[yd]=.0277778*x[in],130,150
  16. 150 DATAx[in],0.0000157828x[mile],X[mile]=1.57828E-5*x[in],140,160
  17. 160 DATAx[ft],30.48x[cm],X[cm]=30.48*x[ft],150,170
  18. 170 DATAx[ft],0.3048x[m],X[m]=.3048*x[ft],160,180
  19. 180 DATAx[ft],12x[in],X[in]=12*x[ft],170,190
  20. 190 DATAx[ft],0.333333x[yd],X[yd]=.333333*x[ft],180,200
  21. 200 DATAx[ft],0.000189394x[mile],X[mile]=1.89394E-4*x[ft],190,210
  22. 210 DATAx[yd],91.44x[cm],X[cm]=91.44*x[yd],200,220
  23. 220 DATAx[yd],0.9144x[m],X[m]=.9144*x[yd],210,230
  24. 230 DATAx[yd],36x[in],X[in]=36*x[yd],220,240
  25. 240 DATAx[yd],3x[ft],X[ft]=3*x[yd],230,250
  26. 250 DATAx[yd],0.000568182x[mile],X[mile]=5.68182E-4*x[yd],240,260
  27. 260 DATAx[mile],160934.4x[cm],X[cm]=160934.4*x[mile],250,270
  28. 270 DATAx[mile],1609.344x[m],X[m]=1609.344*x[mile],260,280
  29. 280 DATAx[mile],63360x[in],X[in]=63360*x[mile],270,290
  30. 290 DATAx[mile],5280x[ft],X[ft]=5280*x[mile],280,300
  31. 300 DATAx[mile],1760x[yd],X[yd]=1760*x[mile],290,300
  32. 10010 MODE8:DIM:x=10:y=300:r=x
  33. 10050 p$="Metric conversion (length)"
  34. 10110 RESTORE(r)
  35. 10120 READm$,n$,s$,b,c
  36. 10130 l$="["+MID$(STR$(r/10),2)+"]":l=32-LEN(l$)
  37. 10140 CLS:PRINTp$;TAB(l);l$;m$;" - ";n$;
  38. 10150 z=ASC(INPUT$(1,@))
  39. 10170 IFz=29 ANDr<>x THENr=x:GOTO10110
  40. 10180 IFz=28 ANDr<>y THENr=y:GOTO10110
  41. 10190 IFz=30 ANDr<>b THENr=b:GOTO10110
  42. 10200 IFz=31 ANDr<>c THENr=c:GOTO10110
  43. 10210 IFz=13 THENCALC$=s$:CALCJMP
  44. 10280 GOTO10150
  45.